home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / checksummer 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  44 lines
  1. 0 rem *******************************
  2. 1 rem *                             *
  3. 2 rem *       checksummer 64        *
  4. 3 rem *                             *
  5. 4 rem *  copyright oktober 1984 by  *
  6. 5 rem *                             *
  7. 6 rem *      frank lonczewski       *
  8. 7 rem *                             *
  9. 8 rem *******************************
  10. 9 print"[147]             checksummer 64[146]"
  11. 10 print" written october 1984 by f. lonczewski"
  12. 11 print"    ich arbeite! bitte etwas geduld."
  13. 12 fori=40960to49151:pokei,peek(i):next
  14. 13 fori=57344to65535:pokei,peek(i):next
  15. 14 poke1,53:poke42289,96:poke42290,228
  16. 15 fori=58464to58554:gosub21:pokei,a
  17. 16 ps=ps+a+1:nexti
  18. 17 ifps<>11187thenprint"pruefsummenfehler !":end
  19. 18 print"         checksummer aktiviert."
  20. 19 print"ausschalten : poke1,55"
  21. 20 print"anschalten  : poke1,53":new
  22. 21 reada$:iflen(a$)<>2thenprint"tippfehler in zeile"peek(63)+peek(64)*256:end
  23. 22 a1=asc(a$):a2=asc(right$(a$,1))
  24. 23 ifa1<48ora1>57thenifa1<65ora1>70then30
  25. 24 ifa2<48ora2>57thenifa2<65ora2>70then30
  26. 25 ifa1>64thena1=a1-55:goto27
  27. 26 ifa1<58thena1=a1-48
  28. 27 ifa2>64thena2=a2-55:goto29
  29. 28 ifa2<58thena2=a2-48
  30. 29 a=a1*16+a2:return
  31. 30 print"ungueltiger hexcode in zeile"peek(63)+peek(64)*256:end
  32. 31 data a0,02,a9,00,85,02,b1,5f
  33. 32 data f0,0f,c9,20,d0,03,c8,d0
  34. 33 data f5,18,65,02,85,02,4c,6e
  35. 34 data e4,c0,04,30,f1,c6,d6,a5
  36. 35 data d6,48,a2,03,a9,20,9d,01
  37. 36 data 04,bd,b7,e4,20,d2,ff,ca
  38. 37 data 10,f2,a6,02,a9,00,20,cd
  39. 38 data bd,a9,3e,20,d2,ff,68,85
  40. 39 data d6,20,6c,e5,a9,8d,20,d2
  41. 40 data ff,4c,80,a4,5c,48,20,c9
  42. 41 data ff,aa,68,90,01,8a,60,09
  43. 42 data 3c,12,13
  44.